/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Publish / A / Alpha.5.76.sit / Alpha.5.76 folder / Tcl / SystemCode / shell.tcl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 73 68 65 6c 6c 2e | 74 63 6c 00 00 00 00 00 |..shell.|tcl.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 17 5e 00 | 00 01 7e a9 a6 2b b5 a9 |......^.|..~..+..|
|00000060| a6 2b b5 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.+......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 1e 1c 00 00 |........|........|
|00000080| 0d 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |.#######|########|
|00000090| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000d0| 23 0d 23 20 53 68 65 6c | 6c 20 72 6f 75 74 69 6e |#.# Shel|l routin|
|000000e0| 65 73 2e 0d 23 23 23 23 | 23 23 23 23 23 23 23 23 |es..####|########|
|000000f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000100| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000110| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000120| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000130| 23 23 23 23 0d 0d 0d 70 | 72 6f 63 20 73 65 74 53 |####...p|roc setS|
|00000140| 68 65 6c 6c 4d 6f 64 65 | 20 7b 7d 20 7b 0d 09 73 |hellMode| {} {..s|
|00000150| 65 74 54 63 6c 4d 6f 64 | 65 0d 09 63 68 61 6e 67 |etTclMod|e..chang|
|00000160| 65 4d 6f 64 65 20 22 43 | 73 68 22 0d 09 69 6e 73 |eMode "C|sh"..ins|
|00000170| 65 72 74 4d 65 6e 75 20 | 22 54 63 6c 22 0d 7d 0d |ertMenu |"Tcl".}.|
|00000180| 0d 70 72 6f 63 20 69 6e | 69 74 53 68 65 6c 6c 20 |.proc in|itShell |
|00000190| 7b 7d 20 7b 0d 09 69 6e | 73 65 72 74 54 65 78 74 |{} {..in|sertText|
|000001a0| 20 22 57 65 6c 63 6f 6d | 65 20 74 6f 20 41 6c 70 | "Welcom|e to Alp|
|000001b0| 68 61 27 73 20 54 63 6c | 20 73 68 65 6c 6c 2e 22 |ha's Tcl| shell."|
|000001c0| 0d 09 69 6e 73 65 72 74 | 54 65 78 74 20 2d 77 20 |..insert|Text -w |
|000001d0| 5b 6c 69 6e 64 65 78 20 | 5b 77 69 6e 4e 61 6d 65 |[lindex |[winName|
|000001e0| 73 5d 20 30 5d 20 5b 73 | 68 65 6c 6c 50 72 6f 6d |s] 0] [s|hellProm|
|000001f0| 70 74 5d 0d 7d 0d 0d 23 | 20 52 65 74 75 72 6e 20 |pt].}..#| Return |
|00000200| 74 68 65 20 70 72 6f 6d | 70 74 2e 20 57 65 20 77 |the prom|pt. We w|
|00000210| 61 6e 74 20 74 68 65 20 | 77 69 6e 64 6f 77 20 6e |ant the |window n|
|00000220| 61 6d 65 20 62 65 63 61 | 75 73 65 20 73 6f 6d 65 |ame beca|use some|
|00000230| 20 6f 66 20 74 68 65 20 | 63 6f 6d 6d 61 6e 64 73 | of the |commands|
|00000240| 0d 23 20 77 65 20 65 76 | 61 6c 75 61 74 65 20 28 |.# we ev|aluate (|
|00000250| 73 75 63 68 20 61 73 20 | 27 65 64 69 74 27 29 20 |such as |'edit') |
|00000260| 6f 70 65 6e 20 61 20 6e | 65 77 20 77 69 6e 64 6f |open a n|ew windo|
|00000270| 77 2c 20 61 6e 64 20 77 | 65 20 77 61 6e 74 20 74 |w, and w|e want t|
|00000280| 68 65 20 69 6e 73 65 72 | 74 69 6f 6e 0d 23 20 74 |he inser|tion.# t|
|00000290| 6f 20 62 65 20 64 6f 6e | 65 20 69 6e 20 74 68 65 |o be don|e in the|
|000002a0| 20 73 68 65 6c 6c 20 77 | 69 6e 64 6f 77 2e 0d 70 | shell w|indow..p|
|000002b0| 72 6f 63 20 73 68 65 6c | 6c 50 72 6f 6d 70 74 20 |roc shel|lPrompt |
|000002c0| 7b 7d 20 7b 0d 09 72 65 | 67 65 78 70 20 22 28 5c |{} {..re|gexp "(\|
|000002d0| 5b 5e 3a 5c 5d 2a 29 3a | 24 22 20 5b 70 77 64 5d |[^:\]*):|$" [pwd]|
|000002e0| 20 63 72 44 75 6d 20 63 | 72 44 69 72 0d 09 72 65 | crDum c|rDir..re|
|000002f0| 74 75 72 6e 20 22 5c 72 | 24 63 72 44 69 72 3e 20 |turn "\r|$crDir> |
|00000300| 22 0d 7d 0d 0d 0d 23 20 | 43 61 6c 6c 65 64 20 61 |".}...# |Called a|
|00000310| 74 20 61 6c 6c 20 63 61 | 72 72 69 61 67 65 20 72 |t all ca|rriage r|
|00000320| 65 74 75 72 6e 73 2e 0d | 70 72 6f 63 20 63 61 72 |eturns..|proc car|
|00000330| 72 69 61 67 65 52 65 74 | 75 72 6e 20 7b 7d 20 7b |riageRet|urn {} {|
|00000340| 0d 09 67 6c 6f 62 61 6c | 20 6d 6f 64 65 0d 09 67 |..global| mode..g|
|00000350| 6c 6f 62 61 6c 20 69 6e | 64 65 6e 74 4f 6e 43 52 |lobal in|dentOnCR|
|00000360| 0d 09 73 65 74 20 69 6e | 64 65 6e 74 53 74 72 69 |..set in|dentStri|
|00000370| 6e 67 20 22 22 0d 09 64 | 65 6c 65 74 65 54 65 78 |ng ""..d|eleteTex|
|00000380| 74 20 5b 67 65 74 50 6f | 73 5d 20 5b 73 65 6c 45 |t [getPo|s] [selE|
|00000390| 6e 64 5d 0d 09 69 66 20 | 7b 24 69 6e 64 65 6e 74 |nd]..if |{$indent|
|000003a0| 4f 6e 43 52 7d 20 7b 0d | 09 09 73 65 74 20 70 6f |OnCR} {.|..set po|
|000003b0| 73 20 5b 67 65 74 50 6f | 73 5d 0d 09 09 73 65 74 |s [getPo|s]...set|
|000003c0| 20 74 65 78 74 20 5b 67 | 65 74 54 65 78 74 20 5b | text [g|etText [|
|000003d0| 6c 69 6e 65 53 74 61 72 | 74 20 24 70 6f 73 5d 20 |lineStar|t $pos] |
|000003e0| 24 70 6f 73 5d 0d 09 09 | 66 6f 72 20 7b 73 65 74 |$pos]...|for {set|
|000003f0| 20 69 20 30 3b 20 73 65 | 74 20 6c 65 6e 20 5b 73 | i 0; se|t len [s|
|00000400| 74 72 69 6e 67 20 6c 65 | 6e 67 74 68 20 24 74 65 |tring le|ngth $te|
|00000410| 78 74 5d 7d 20 7b 24 69 | 20 3c 3d 20 24 6c 65 6e |xt]} {$i| <= $len|
|00000420| 7d 20 7b 69 6e 63 72 20 | 69 7d 20 7b 0d 09 09 09 |} {incr |i} {....|
|00000430| 73 65 74 20 63 20 5b 73 | 74 72 69 6e 67 20 69 6e |set c [s|tring in|
|00000440| 64 65 78 20 24 74 65 78 | 74 20 24 69 5d 0d 09 09 |dex $tex|t $i]...|
|00000450| 09 69 66 20 7b 28 24 63 | 20 21 3d 20 22 5c 74 22 |.if {($c| != "\t"|
|00000460| 29 20 26 26 20 28 24 63 | 20 21 3d 20 22 5c 20 22 |) && ($c| != "\ "|
|00000470| 29 7d 20 7b 0d 09 09 09 | 09 73 65 74 20 69 6e 64 |)} {....|.set ind|
|00000480| 65 6e 74 53 74 72 69 6e | 67 20 5b 73 74 72 69 6e |entStrin|g [strin|
|00000490| 67 20 72 61 6e 67 65 20 | 24 74 65 78 74 20 30 20 |g range |$text 0 |
|000004a0| 5b 65 78 70 72 20 24 69 | 2d 31 5d 5d 0d 09 09 09 |[expr $i|-1]]....|
|000004b0| 09 62 72 65 61 6b 0d 09 | 09 09 7d 0d 09 09 7d 0d |.break..|..}...}.|
|000004c0| 09 7d 0d 09 69 6e 73 65 | 72 74 54 65 78 74 20 22 |.}..inse|rtText "|
|000004d0| 5c 72 22 20 24 69 6e 64 | 65 6e 74 53 74 72 69 6e |\r" $ind|entStrin|
|000004e0| 67 0d 7d 0d 0d 0d 70 72 | 6f 63 20 74 63 6c 43 61 |g.}...pr|oc tclCa|
|000004f0| 72 72 69 61 67 65 52 65 | 74 75 72 6e 20 7b 7d 20 |rriageRe|turn {} |
|00000500| 7b 0d 09 67 6c 6f 62 61 | 6c 20 6d 6f 64 65 0d 09 |{..globa|l mode..|
|00000510| 67 6c 6f 62 61 6c 20 5f | 74 65 78 74 0d 09 67 6c |global _|text..gl|
|00000520| 6f 62 61 6c 20 5f 72 65 | 74 75 72 6e 54 65 78 74 |obal _re|turnText|
|00000530| 0d 09 73 65 74 20 70 6f | 73 20 5b 67 65 74 50 6f |..set po|s [getPo|
|00000540| 73 5d 0d 09 73 65 74 20 | 69 6e 64 20 5b 73 74 72 |s]..set |ind [str|
|00000550| 69 6e 67 20 66 69 72 73 | 74 20 22 3e 22 20 5b 67 |ing firs|t ">" [g|
|00000560| 65 74 54 65 78 74 20 5b | 6c 69 6e 65 53 74 61 72 |etText [|lineStar|
|00000570| 74 20 24 70 6f 73 5d 20 | 24 70 6f 73 5d 5d 0d 09 |t $pos] |$pos]]..|
|00000580| 69 66 20 7b 24 69 6e 64 | 20 3c 20 30 7d 20 7b 0d |if {$ind| < 0} {.|
|00000590| 09 09 63 61 72 72 69 61 | 67 65 52 65 74 75 72 6e |..carria|geReturn|
|000005a0| 0d 09 09 72 65 74 75 72 | 6e 0d 09 7d 0d 09 73 65 |...retur|n..}..se|
|000005b0| 74 20 6c 53 74 61 72 74 | 20 5b 65 78 70 72 20 5b |t lStart| [expr [|
|000005c0| 6c 69 6e 65 53 74 61 72 | 74 20 24 70 6f 73 5d 2b |lineStar|t $pos]+|
|000005d0| 24 69 6e 64 2b 32 5d 0d | 09 65 6e 64 4f 66 4c 69 |$ind+2].|.endOfLi|
|000005e0| 6e 65 0d 09 73 65 74 20 | 5f 74 65 78 74 20 5b 67 |ne..set |_text [g|
|000005f0| 65 74 54 65 78 74 20 24 | 6c 53 74 61 72 74 20 5b |etText $|lStart [|
|00000600| 67 65 74 50 6f 73 5d 5d | 0d 09 73 65 74 20 66 69 |getPos]]|..set fi|
|00000610| 6c 65 4e 61 6d 65 20 5b | 6c 69 6e 64 65 78 20 5b |leName [|lindex [|
|00000620| 77 69 6e 4e 61 6d 65 73 | 5d 20 30 5d 0d 09 69 66 |winNames|] 0]..if|
|00000630| 20 7b 5b 67 65 74 50 6f | 73 5d 20 21 3d 20 5b 6d | {[getPo|s] != [m|
|00000640| 61 78 50 6f 73 5d 7d 20 | 7b 0d 09 09 67 6f 74 6f |axPos]} |{...goto|
|00000650| 20 5b 6d 61 78 50 6f 73 | 5d 0d 09 09 69 6e 73 65 | [maxPos|]...inse|
|00000660| 72 74 54 65 78 74 20 2d | 77 20 24 66 69 6c 65 4e |rtText -|w $fileN|
|00000670| 61 6d 65 20 24 5f 74 65 | 78 74 0d 09 7d 0d 09 69 |ame $_te|xt..}..i|
|00000680| 66 20 7b 5b 73 74 72 69 | 6e 67 20 66 69 72 73 74 |f {[stri|ng first|
|00000690| 20 22 54 6f 6f 6c 73 65 | 72 76 65 72 22 20 24 66 | "Toolse|rver" $f|
|000006a0| 69 6c 65 4e 61 6d 65 5d | 20 21 3d 20 2d 31 7d 20 |ileName]| != -1} |
|000006b0| 7b 0d 09 09 69 66 20 7b | 21 5b 63 61 74 63 68 20 |{...if {|![catch |
|000006c0| 7b 64 6f 73 63 20 2d 6e | 20 54 6f 6f 6c 53 65 72 |{dosc -n| ToolSer|
|000006d0| 76 65 72 20 2d 73 20 24 | 5f 74 65 78 74 7d 20 5f |ver -s $|_text} _|
|000006e0| 72 65 74 75 72 6e 54 65 | 78 74 5d 7d 20 7b 0d 09 |returnTe|xt]} {..|
|000006f0| 09 09 69 6e 73 65 72 74 | 54 65 78 74 20 22 5c 72 |..insert|Text "\r|
|00000700| 22 20 24 5f 72 65 74 75 | 72 6e 54 65 78 74 0d 09 |" $_retu|rnText..|
|00000710| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 09 69 6e 73 |.} else |{....ins|
|00000720| 65 72 74 54 65 78 74 20 | 22 5c 72 22 0d 09 09 7d |ertText |"\r"...}|
|00000730| 0d 09 09 6d 70 77 50 72 | 6f 6d 70 74 0d 09 7d 20 |...mpwPr|ompt..} |
|00000740| 65 6c 73 65 20 7b 0d 09 | 09 75 70 6c 65 76 65 6c |else {..|.uplevel|
|00000750| 20 23 30 20 7b 63 61 74 | 63 68 20 24 5f 74 65 78 | #0 {cat|ch $_tex|
|00000760| 74 20 5f 72 65 74 75 72 | 6e 54 65 78 74 7d 0d 09 |t _retur|nText}..|
|00000770| 09 69 66 20 7b 5b 73 74 | 72 69 6e 67 20 6c 65 6e |.if {[st|ring len|
|00000780| 67 74 68 20 24 5f 72 65 | 74 75 72 6e 54 65 78 74 |gth $_re|turnText|
|00000790| 5d 7d 20 7b 0d 09 09 09 | 69 6e 73 65 72 74 54 65 |]} {....|insertTe|
|000007a0| 78 74 20 2d 77 20 24 66 | 69 6c 65 4e 61 6d 65 20 |xt -w $f|ileName |
|000007b0| 22 5c 72 22 20 24 5f 72 | 65 74 75 72 6e 54 65 78 |"\r" $_r|eturnTex|
|000007c0| 74 20 5b 73 68 65 6c 6c | 50 72 6f 6d 70 74 5d 0d |t [shell|Prompt].|
|000007d0| 09 09 7d 20 65 6c 73 65 | 20 7b 0d 09 09 09 69 6e |..} else| {....in|
|000007e0| 73 65 72 74 54 65 78 74 | 20 2d 77 20 24 66 69 6c |sertText| -w $fil|
|000007f0| 65 4e 61 6d 65 20 5b 73 | 68 65 6c 6c 50 72 6f 6d |eName [s|hellProm|
|00000800| 70 74 5d 0d 09 09 7d 0d | 09 7d 0d 09 75 6e 73 65 |pt]...}.|.}..unse|
|00000810| 74 20 5f 74 65 78 74 0d | 09 75 6e 73 65 74 20 5f |t _text.|.unset _|
|00000820| 72 65 74 75 72 6e 54 65 | 78 74 0d 7d 0d 62 69 6e |returnTe|xt.}.bin|
|00000830| 64 20 27 5c 72 27 20 63 | 61 72 72 69 61 67 65 52 |d '\r' c|arriageR|
|00000840| 65 74 75 72 6e 0d 62 69 | 6e 64 20 27 5c 72 27 20 |eturn.bi|nd '\r' |
|00000850| 74 63 6c 43 61 72 72 69 | 61 67 65 52 65 74 75 72 |tclCarri|ageRetur|
|00000860| 6e 20 22 43 73 68 22 0d | 62 69 6e 64 20 27 5c 72 |n "Csh".|bind '\r|
|00000870| 27 20 74 63 6c 43 61 72 | 72 69 61 67 65 52 65 74 |' tclCar|riageRet|
|00000880| 75 72 6e 20 22 4d 50 57 | 22 0d 0d 70 72 6f 63 20 |urn "MPW|"..proc |
|00000890| 73 74 61 72 74 4d 50 57 | 20 7b 7d 20 7b 0d 09 67 |startMPW| {} {..g|
|000008a0| 6c 6f 62 61 6c 20 74 6f | 6f 6c 73 65 72 76 65 72 |lobal to|olserver|
|000008b0| 50 61 74 68 0d 0d 09 69 | 66 20 7b 21 5b 73 74 72 |Path...i|f {![str|
|000008c0| 69 6e 67 20 6c 65 6e 67 | 74 68 20 5b 63 68 65 63 |ing leng|th [chec|
|000008d0| 6b 52 75 6e 6e 69 6e 67 | 20 54 6f 6f 6c 53 65 72 |kRunning| ToolSer|
|000008e0| 76 65 72 20 4d 50 53 58 | 20 74 6f 6f 6c 73 65 72 |ver MPSX| toolser|
|000008f0| 76 65 72 50 61 74 68 5d | 5d 7d 20 72 65 74 75 72 |verPath]|]} retur|
|00000900| 6e 0d 0d 09 69 6e 73 65 | 72 74 54 65 78 74 20 22 |n...inse|rtText "|
|00000910| 57 65 6c 63 6f 6d 65 20 | 74 6f 20 41 6c 70 68 61 |Welcome |to Alpha|
|00000920| 27 73 20 4d 50 57 20 73 | 68 65 6c 6c 20 28 75 73 |'s MPW s|hell (us|
|00000930| 69 6e 67 20 54 6f 6f 6c | 53 65 72 76 65 72 20 76 |ing Tool|Server v|
|00000940| 69 61 20 41 70 70 6c 65 | 45 76 65 6e 74 73 29 2e |ia Apple|Events).|
|00000950| 22 0d 09 62 69 6e 64 20 | 27 5c 72 27 20 74 63 6c |"..bind |'\r' tcl|
|00000960| 43 61 72 72 69 61 67 65 | 52 65 74 75 72 6e 20 22 |Carriage|Return "|
|00000970| 4d 50 57 22 0d 09 63 61 | 72 72 69 61 67 65 52 65 |MPW"..ca|rriageRe|
|00000980| 74 75 72 6e 0d 09 6d 70 | 77 50 72 6f 6d 70 74 0d |turn..mp|wPrompt.|
|00000990| 7d 0d 70 72 6f 63 20 6d | 70 77 50 72 6f 6d 70 74 |}.proc m|pwPrompt|
|000009a0| 20 7b 7d 20 7b 0d 09 69 | 6e 73 65 72 74 54 65 78 | {} {..i|nsertTex|
|000009b0| 74 20 22 6d 70 77 3e 20 | 22 0d 7d 0d 0d 70 72 6f |t "mpw> |".}..pro|
|000009c0| 63 20 73 65 74 4d 50 57 | 4d 6f 64 65 20 7b 7d 20 |c setMPW|Mode {} |
|000009d0| 7b 0d 09 63 68 61 6e 67 | 65 4d 6f 64 65 20 22 4d |{..chang|eMode "M|
|000009e0| 50 57 22 0d 7d 0d 0d 23 | 09 74 63 6c 43 61 72 72 |PW".}..#|.tclCarr|
|000009f0| 69 61 67 65 52 65 74 75 | 72 6e 0d 0d 0d 0d 23 3d |iageRetu|rn....#=|
|00000a00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000a10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000a20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000a30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000a40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 23 09 53 |========|====.#.S|
|00000a50| 68 65 6c 6c 20 41 6c 69 | 61 73 65 73 0d 23 3d 3d |hell Ali|ases.#==|
|00000a60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000a70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000a80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000a90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000aa0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 0d 0d 70 72 |========|===...pr|
|00000ab0| 6f 63 20 6c 20 7b 61 72 | 67 73 7d 20 7b 0d 09 65 |oc l {ar|gs} {..e|
|00000ac0| 76 61 6c 20 5b 63 6f 6e | 63 61 74 20 22 6c 73 20 |val [con|cat "ls |
|00000ad0| 2d 43 46 22 20 24 61 72 | 67 73 5d 7d 0d 0d 70 72 |-CF" $ar|gs]}..pr|
|00000ae0| 6f 63 20 6c 6c 20 7b 61 | 72 67 73 7d 20 7b 0d 09 |oc ll {a|rgs} {..|
|00000af0| 65 76 61 6c 20 5b 63 6f | 6e 63 61 74 20 22 6c 73 |eval [co|ncat "ls|
|00000b00| 20 2d 6c 22 20 24 61 72 | 67 73 5d 7d 0d 0d 0d 70 | -l" $ar|gs]}...p|
|00000b10| 72 6f 63 20 77 63 20 7b | 61 72 67 73 7d 20 7b 0d |roc wc {|args} {.|
|00000b20| 09 73 65 74 20 74 6f 74 | 43 68 61 72 73 20 30 0d |.set tot|Chars 0.|
|00000b30| 09 73 65 74 20 74 6f 74 | 4c 69 6e 65 73 20 30 0d |.set tot|Lines 0.|
|00000b40| 09 73 65 74 20 74 6f 74 | 57 6f 72 64 73 20 30 0d |.set tot|Words 0.|
|00000b50| 09 73 65 74 20 61 72 67 | 73 20 5b 67 6c 6f 62 20 |.set arg|s [glob |
|00000b60| 2d 6e 6f 63 6f 6d 70 6c | 61 69 6e 20 24 61 72 67 |-nocompl|ain $arg|
|00000b70| 73 5d 0d 09 66 6f 72 65 | 61 63 68 20 66 69 6c 65 |s]..fore|ach file|
|00000b80| 20 24 61 72 67 73 20 7b | 0d 09 09 73 65 74 20 69 | $args {|...set i|
|00000b90| 64 20 5b 6f 70 65 6e 20 | 24 66 69 6c 65 5d 0d 09 |d [open |$file]..|
|00000ba0| 09 73 65 74 20 63 68 61 | 72 73 20 5b 73 74 72 69 |.set cha|rs [stri|
|00000bb0| 6e 67 20 6c 65 6e 67 74 | 68 20 5b 73 65 74 20 74 |ng lengt|h [set t|
|00000bc0| 65 78 74 20 5b 72 65 61 | 64 20 24 69 64 5d 5d 5d |ext [rea|d $id]]]|
|00000bd0| 0d 09 09 73 65 74 20 6c | 69 6e 65 73 20 5b 6c 6c |...set l|ines [ll|
|00000be0| 65 6e 67 74 68 20 5b 73 | 70 6c 69 74 20 24 74 65 |ength [s|plit $te|
|00000bf0| 78 74 20 22 5c 6e 22 5d | 5d 0d 09 09 73 65 74 20 |xt "\n"]|]...set |
|00000c00| 77 6f 72 64 73 20 5b 6c | 6c 65 6e 67 74 68 20 5b |words [l|length [|
|00000c10| 73 70 6c 69 74 20 24 74 | 65 78 74 5d 5d 0d 09 09 |split $t|ext]]...|
|00000c20| 69 6e 73 65 72 74 54 65 | 78 74 20 5b 66 6f 72 6d |insertTe|xt [form|
|00000c30| 61 74 20 22 5c 72 25 38 | 64 25 38 64 25 38 64 20 |at "\r%8|d%8d%8d |
|00000c40| 20 20 20 24 66 69 6c 65 | 22 20 24 6c 69 6e 65 73 |   $file|" $lines|
|00000c50| 20 24 77 6f 72 64 73 20 | 24 63 68 61 72 73 5d 0d | $words |$chars].|
|00000c60| 09 09 73 65 74 20 74 6f | 74 43 68 61 72 73 20 5b |..set to|tChars [|
|00000c70| 65 78 70 72 20 24 74 6f | 74 43 68 61 72 73 2b 24 |expr $to|tChars+$|
|00000c80| 63 68 61 72 73 5d 0d 09 | 09 73 65 74 20 74 6f 74 |chars]..|.set tot|
|00000c90| 57 6f 72 64 73 20 5b 65 | 78 70 72 20 24 74 6f 74 |Words [e|xpr $tot|
|00000ca0| 57 6f 72 64 73 2b 24 77 | 6f 72 64 73 5d 0d 09 09 |Words+$w|ords]...|
|00000cb0| 73 65 74 20 74 6f 74 4c | 69 6e 65 73 20 5b 65 78 |set totL|ines [ex|
|00000cc0| 70 72 20 24 74 6f 74 4c | 69 6e 65 73 2b 24 6c 69 |pr $totL|ines+$li|
|00000cd0| 6e 65 73 5d 0d 09 09 63 | 6c 6f 73 65 20 24 69 64 |nes]...c|lose $id|
|00000ce0| 0d 09 7d 0d 09 69 66 20 | 7b 5b 6c 6c 65 6e 67 74 |..}..if |{[llengt|
|00000cf0| 68 20 24 61 72 67 73 5d | 20 3e 20 31 7d 20 7b 0d |h $args]| > 1} {.|
|00000d00| 09 09 69 6e 73 65 72 74 | 54 65 78 74 20 5b 66 6f |..insert|Text [fo|
|00000d10| 72 6d 61 74 20 22 5c 72 | 25 38 64 25 38 64 25 38 |rmat "\r|%8d%8d%8|
|00000d20| 64 20 20 20 20 74 6f 74 | 61 6c 22 20 24 74 6f 74 |d    tot|al" $tot|
|00000d30| 4c 69 6e 65 73 20 24 74 | 6f 74 57 6f 72 64 73 20 |Lines $t|otWords |
|00000d40| 24 74 6f 74 43 68 61 72 | 73 5d 0d 09 7d 0d 7d 0d |$totChar|s]..}.}.|
|00000d50| 0d 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |.#######|########|
|00000d60| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000d70| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000d80| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000d90| 23 23 23 23 23 23 23 23 | 23 23 23 23 0d 23 20 20 |########|####.#  |
|00000da0| 62 65 74 74 65 72 2d 63 | 70 2d 6d 76 2e 74 63 6c |better-c|p-mv.tcl|
|00000db0| 20 20 2d 2d 20 6d 6f 64 | 69 66 69 63 61 74 69 6f |  -- mod|ificatio|
|00000dc0| 6e 20 6f 66 20 79 6f 75 | 72 20 72 6f 75 74 69 6e |n of you|r routin|
|00000dd0| 65 73 2c 20 62 79 20 4d | 61 72 6b 20 4e 61 67 61 |es, by M|ark Naga|
|00000de0| 74 61 0d 23 20 20 66 6f | 72 20 41 6c 70 68 61 20 |ta.#  fo|r Alpha |
|00000df0| 35 2e 37 32 2c 20 20 31 | 2f 30 34 2f 39 34 0d 23 |5.72,  1|/04/94.#|
|00000e00| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000e10| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000e20| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000e30| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000e40| 23 23 23 23 23 23 23 23 | 23 23 0d 70 72 6f 63 20 |########|##.proc |
|00000e50| 63 70 20 61 72 67 73 20 | 7b 0d 20 20 20 20 69 66 |cp args |{.    if|
|00000e60| 20 7b 5b 73 65 74 20 6c | 65 6e 20 5b 6c 6c 65 6e | {[set l|en [llen|
|00000e70| 67 74 68 20 24 61 72 67 | 73 5d 5d 20 3c 20 32 7d |gth $arg|s]] < 2}|
|00000e80| 20 7b 0d 20 20 20 20 20 | 20 20 20 65 72 72 6f 72 | {.     |   error|
|00000e90| 20 22 75 73 61 67 65 3a | 20 63 70 20 3c 66 69 6c | "usage:| cp <fil|
|00000ea0| 65 31 3e 20 3c 66 69 6c | 65 32 3e 5c 72 20 20 20 |e1> <fil|e2>\r   |
|00000eb0| 20 20 20 20 63 70 20 3c | 66 69 6c 65 31 3e 20 2e |    cp <|file1> .|
|00000ec0| 2e 2e 2e 20 3c 64 69 72 | 3e 22 0d 20 20 20 20 7d |... <dir|>".    }|
|00000ed0| 0d 20 20 20 20 73 65 74 | 20 6c 65 6e 20 5b 65 78 |.    set| len [ex|
|00000ee0| 70 72 20 24 6c 65 6e 2d | 31 5d 0d 20 20 20 20 69 |pr $len-|1].    i|
|00000ef0| 66 20 7b 21 5b 72 65 67 | 65 78 70 20 7b 2e 2a 5b |f {![reg|exp {.*[|
|00000f00| 5e 3a 5d 7d 20 5b 6c 69 | 6e 64 65 78 20 24 61 72 |^:]} [li|ndex $ar|
|00000f10| 67 73 20 24 6c 65 6e 5d | 20 64 69 72 5d 7d 20 7b |gs $len]| dir]} {|
|00000f20| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 64 69 72 |.       | set dir|
|00000f30| 20 5b 73 74 72 69 6e 67 | 20 72 61 6e 67 65 20 5b | [string| range [|
|00000f40| 6c 69 6e 64 65 78 20 24 | 61 72 67 73 20 24 6c 65 |lindex $|args $le|
|00000f50| 6e 5d 20 31 20 65 6e 64 | 5d 0d 20 20 20 20 7d 0d |n] 1 end|].    }.|
|00000f60| 20 20 20 20 69 66 20 7b | 21 5b 72 65 67 65 78 70 |    if {|![regexp|
|00000f70| 20 7b 3a 7d 20 24 64 69 | 72 5d 20 26 26 20 24 64 | {:} $di|r] && $d|
|00000f80| 69 72 20 21 3d 20 22 22 | 7d 20 7b 0d 20 20 20 20 |ir != ""|} {.    |
|00000f90| 20 20 20 20 73 65 74 20 | 64 69 72 20 5b 63 6f 6e |    set |dir [con|
|00000fa0| 63 61 74 20 3a 24 64 69 | 72 5d 7d 0d 20 20 20 20 |cat :$di|r]}.    |
|00000fb0| 73 65 74 20 61 72 67 73 | 20 5b 6c 72 65 70 6c 61 |set args| [lrepla|
|00000fc0| 63 65 20 24 61 72 67 73 | 20 24 6c 65 6e 20 24 6c |ce $args| $len $l|
|00000fd0| 65 6e 5d 0d 20 20 20 20 | 73 65 74 20 66 69 6c 65 |en].    |set file|
|00000fe0| 73 20 7b 7d 0d 20 20 20 | 20 66 6f 72 65 61 63 68 |s {}.   | foreach|
|00000ff0| 20 61 72 67 20 24 61 72 | 67 73 20 7b 0d 20 20 20 | arg $ar|gs {.   |
|00001000| 20 20 20 20 20 61 70 70 | 65 6e 64 20 66 69 6c 65 |     app|end file|
|00001010| 73 20 22 20 22 20 5b 67 | 6c 6f 62 20 24 61 72 67 |s " " [g|lob $arg|
|00001020| 5d 0d 20 20 20 20 7d 0d | 20 20 20 20 73 65 74 20 |].    }.|    set |
|00001030| 72 65 70 6f 72 74 20 22 | 22 0d 20 20 20 20 69 66 |report "|".    if|
|00001040| 20 7b 5b 6c 6c 65 6e 67 | 74 68 20 24 66 69 6c 65 | {[lleng|th $file|
|00001050| 73 5d 20 3d 3d 20 31 7d | 20 7b 0d 20 20 20 20 20 |s] == 1}| {.     |
|00001060| 20 20 20 73 65 74 20 66 | 20 5b 6c 69 6e 64 65 78 |   set f| [lindex|
|00001070| 20 24 66 69 6c 65 73 20 | 30 5d 0d 20 20 20 20 20 | $files |0].     |
|00001080| 20 20 20 69 66 20 7b 5b | 66 69 6c 65 20 65 78 69 |   if {[|file exi|
|00001090| 73 74 73 20 24 64 69 72 | 5d 7d 20 7b 0d 20 20 20 |sts $dir|]} {.   |
|000010a0| 20 20 20 20 20 20 20 20 | 20 73 65 74 20 74 61 72 |        | set tar|
|000010b0| 67 20 24 64 69 72 3a 5b | 66 69 6c 65 20 74 61 69 |g $dir:[|file tai|
|000010c0| 6c 20 24 66 5d 0d 20 20 | 20 20 20 20 20 20 20 20 |l $f].  |        |
|000010d0| 20 20 61 70 70 65 6e 64 | 20 72 65 70 6f 72 74 20 |  append| report |
|000010e0| 24 66 5c 20 2d 3e 5c 20 | 24 74 61 72 67 20 5c 72 |$f\ ->\ |$targ \r|
|000010f0| 20 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 63 6f | .      |      co|
|00001100| 70 79 46 69 6c 65 20 24 | 66 20 24 74 61 72 67 0d |pyFile $|f $targ.|
|00001110| 20 20 20 20 20 20 20 20 | 7d 20 65 6c 73 65 20 7b |        |} else {|
|00001120| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 61 70 70 |.       |     app|
|00001130| 65 6e 64 20 72 65 70 6f | 72 74 20 24 66 5c 20 2d |end repo|rt $f\ -|
|00001140| 3e 5c 20 24 64 69 72 20 | 5c 72 0d 20 20 20 20 20 |>\ $dir |\r.     |
|00001150| 20 20 20 20 20 20 20 63 | 6f 70 79 46 69 6c 65 20 |       c|opyFile |
|00001160| 24 66 20 24 64 69 72 0d | 20 20 20 20 20 20 20 20 |$f $dir.|        |
|00001170| 7d 0d 20 20 20 20 7d 20 | 65 6c 73 65 20 7b 0d 20 |}.    } |else {. |
|00001180| 20 20 20 20 20 20 20 66 | 6f 72 65 61 63 68 20 66 |       f|oreach f|
|00001190| 20 24 66 69 6c 65 73 20 | 7b 0d 20 20 20 20 20 20 | $files |{.      |
|000011a0| 20 20 20 20 20 20 73 65 | 74 20 74 61 72 67 20 24 |      se|t targ $|
|000011b0| 64 69 72 3a 5b 66 69 6c | 65 20 74 61 69 6c 20 24 |dir:[fil|e tail $|
|000011c0| 66 5d 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 61 |f].     |       a|
|000011d0| 70 70 65 6e 64 20 72 65 | 70 6f 72 74 20 24 66 5c |ppend re|port $f\|
|000011e0| 20 2d 3e 5c 20 24 74 61 | 72 67 20 5c 72 0d 20 20 | ->\ $ta|rg \r.  |
|000011f0| 20 20 20 20 20 20 20 20 | 20 20 69 66 20 7b 5b 63 |        |  if {[c|
|00001200| 61 74 63 68 20 7b 63 6f | 70 79 46 69 6c 65 20 24 |atch {co|pyFile $|
|00001210| 66 20 24 74 61 72 67 7d | 20 74 68 61 74 5d 7d 20 |f $targ}| that]} |
|00001220| 7b 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |{.      |        |
|00001230| 20 20 61 6c 65 72 74 6e | 6f 74 65 20 22 45 72 72 |  alertn|ote "Err|
|00001240| 6f 72 20 63 6f 70 79 69 | 6e 67 20 27 24 66 27 20 |or copyi|ng '$f' |
|00001250| 2d 3e 20 27 24 74 61 72 | 67 27 3a 20 24 74 68 61 |-> '$tar|g': $tha|
|00001260| 74 22 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 7d |t".     |       }|
|00001270| 0d 20 20 20 20 20 20 20 | 20 7d 0d 20 20 20 20 7d |.       | }.    }|
|00001280| 0d 20 20 20 20 65 63 68 | 6f 20 24 72 65 70 6f 72 |.    ech|o $repor|
|00001290| 74 0d 7d 0d 0d 70 72 6f | 63 20 6d 76 20 61 72 67 |t.}..pro|c mv arg|
|000012a0| 73 20 7b 0d 20 20 20 20 | 69 66 20 7b 5b 73 65 74 |s {.    |if {[set|
|000012b0| 20 6c 65 6e 20 5b 6c 6c | 65 6e 67 74 68 20 24 61 | len [ll|ength $a|
|000012c0| 72 67 73 5d 5d 20 3c 20 | 32 7d 20 7b 0d 20 20 20 |rgs]] < |2} {.   |
|000012d0| 20 20 20 20 20 65 72 72 | 6f 72 20 22 75 73 61 67 |     err|or "usag|
|000012e0| 65 3a 20 6d 76 20 3c 66 | 69 6c 65 31 3e 20 3c 66 |e: mv <f|ile1> <f|
|000012f0| 69 6c 65 32 3e 5c 72 20 | 20 20 20 20 20 20 6d 76 |ile2>\r |      mv|
|00001300| 20 3c 66 69 6c 65 31 3e | 20 2e 2e 2e 2e 20 3c 64 | <file1>| .... <d|
|00001310| 69 72 3e 22 0d 20 20 20 | 20 7d 0d 20 20 20 20 73 |ir>".   | }.    s|
|00001320| 65 74 20 6c 65 6e 20 5b | 65 78 70 72 20 24 6c 65 |et len [|expr $le|
|00001330| 6e 2d 31 5d 0d 20 20 20 | 20 69 66 20 7b 21 5b 72 |n-1].   | if {![r|
|00001340| 65 67 65 78 70 20 7b 2e | 2a 5b 5e 3a 5d 7d 20 5b |egexp {.|*[^:]} [|
|00001350| 6c 69 6e 64 65 78 20 24 | 61 72 67 73 20 24 6c 65 |lindex $|args $le|
|00001360| 6e 5d 20 64 69 72 5d 7d | 20 7b 0d 20 20 20 20 20 |n] dir]}| {.     |
|00001370| 20 20 20 73 65 74 20 64 | 69 72 20 5b 73 74 72 69 |   set d|ir [stri|
|00001380| 6e 67 20 72 61 6e 67 65 | 20 5b 6c 69 6e 64 65 78 |ng range| [lindex|
|00001390| 20 24 61 72 67 73 20 24 | 6c 65 6e 5d 20 31 20 65 | $args $|len] 1 e|
|000013a0| 6e 64 5d 0d 20 20 20 20 | 7d 0d 20 20 20 20 69 66 |nd].    |}.    if|
|000013b0| 20 7b 21 5b 72 65 67 65 | 78 70 20 7b 3a 7d 20 24 | {![rege|xp {:} $|
|000013c0| 64 69 72 5d 20 26 26 20 | 24 64 69 72 20 21 3d 20 |dir] && |$dir != |
|000013d0| 22 22 7d 20 7b 0d 20 20 | 20 20 20 20 20 20 73 65 |""} {.  |      se|
|000013e0| 74 20 64 69 72 20 5b 63 | 6f 6e 63 61 74 20 3a 24 |t dir [c|oncat :$|
|000013f0| 64 69 72 5d 7d 0d 20 20 | 20 20 73 65 74 20 61 72 |dir]}.  |  set ar|
|00001400| 67 73 20 5b 6c 72 65 70 | 6c 61 63 65 20 24 61 72 |gs [lrep|lace $ar|
|00001410| 67 73 20 24 6c 65 6e 20 | 24 6c 65 6e 5d 0d 20 20 |gs $len |$len].  |
|00001420| 20 20 73 65 74 20 66 69 | 6c 65 73 20 7b 7d 0d 20 |  set fi|les {}. |
|00001430| 20 20 20 66 6f 72 65 61 | 63 68 20 61 72 67 20 24 |   forea|ch arg $|
|00001440| 61 72 67 73 20 7b 0d 20 | 20 20 20 20 20 20 20 61 |args {. |       a|
|00001450| 70 70 65 6e 64 20 66 69 | 6c 65 73 20 22 20 22 20 |ppend fi|les " " |
|00001460| 5b 67 6c 6f 62 20 24 61 | 72 67 5d 0d 20 20 20 20 |[glob $a|rg].    |
|00001470| 7d 0d 20 20 20 20 73 65 | 74 20 72 65 70 6f 72 74 |}.    se|t report|
|00001480| 20 22 22 0d 20 20 20 20 | 69 66 20 7b 5b 6c 6c 65 | "".    |if {[lle|
|00001490| 6e 67 74 68 20 24 66 69 | 6c 65 73 5d 20 3d 3d 20 |ngth $fi|les] == |
|000014a0| 31 7d 20 7b 0d 20 20 20 | 20 20 20 20 20 73 65 74 |1} {.   |     set|
|000014b0| 20 66 20 5b 6c 69 6e 64 | 65 78 20 24 66 69 6c 65 | f [lind|ex $file|
|000014c0| 73 20 30 5d 0d 20 20 20 | 20 20 20 20 20 69 66 20 |s 0].   |     if |
|000014d0| 7b 5b 66 69 6c 65 20 65 | 78 69 73 74 73 20 24 64 |{[file e|xists $d|
|000014e0| 69 72 5d 7d 20 7b 0d 20 | 20 20 20 20 20 20 20 20 |ir]} {. |        |
|000014f0| 20 20 20 73 65 74 20 74 | 61 72 67 20 24 64 69 72 |   set t|arg $dir|
|00001500| 3a 5b 66 69 6c 65 20 74 | 61 69 6c 20 24 66 5d 0d |:[file t|ail $f].|
|00001510| 20 20 20 20 20 20 20 20 | 20 20 20 20 61 70 70 65 |        |    appe|
|00001520| 6e 64 20 72 65 70 6f 72 | 74 20 24 66 5c 20 3e 2d |nd repor|t $f\ >-|
|00001530| 3e 5c 20 24 74 61 72 67 | 20 5c 72 0d 20 20 20 20 |>\ $targ| \r.    |
|00001540| 20 20 20 20 20 20 20 20 | 6d 6f 76 65 46 69 6c 65 |        |moveFile|
|00001550| 20 24 66 20 24 74 61 72 | 67 0d 20 20 20 20 20 20 | $f $tar|g.      |
|00001560| 20 20 7d 20 65 6c 73 65 | 20 7b 0d 20 20 20 20 20 |  } else| {.     |
|00001570| 20 20 20 20 20 20 20 61 | 70 70 65 6e 64 20 72 65 |       a|ppend re|
|00001580| 70 6f 72 74 20 24 66 5c | 20 3e 2d 3e 5c 20 24 64 |port $f\| >->\ $d|
|00001590| 69 72 20 5c 72 0d 20 20 | 20 20 20 20 20 20 20 20 |ir \r.  |        |
|000015a0| 20 20 6d 6f 76 65 46 69 | 6c 65 20 24 66 20 24 64 |  moveFi|le $f $d|
|000015b0| 69 72 0d 20 20 20 20 20 | 20 20 20 7d 0d 20 20 20 |ir.     |   }.   |
|000015c0| 20 7d 20 65 6c 73 65 20 | 7b 0d 20 20 20 20 20 20 | } else |{.      |
|000015d0| 20 20 66 6f 72 65 61 63 | 68 20 66 20 24 66 69 6c |  foreac|h f $fil|
|000015e0| 65 73 20 7b 0d 20 20 20 | 20 20 20 20 20 20 20 20 |es {.   |        |
|000015f0| 20 73 65 74 20 74 61 72 | 67 20 24 64 69 72 3a 5b | set tar|g $dir:[|
|00001600| 66 69 6c 65 20 74 61 69 | 6c 20 24 66 5d 0d 20 20 |file tai|l $f].  |
|00001610| 20 20 20 20 20 20 20 20 | 20 20 61 70 70 65 6e 64 |        |  append|
|00001620| 20 72 65 70 6f 72 74 20 | 24 66 5c 20 3e 2d 3e 5c | report |$f\ >->\|
|00001630| 20 24 74 61 72 67 20 5c | 72 0d 20 20 20 20 20 20 | $targ \|r.      |
|00001640| 20 20 20 20 20 20 69 66 | 20 7b 5b 63 61 74 63 68 |      if| {[catch|
|00001650| 20 7b 6d 6f 76 65 46 69 | 6c 65 20 24 66 20 24 74 | {moveFi|le $f $t|
|00001660| 61 72 67 7d 20 74 68 61 | 74 5d 7d 20 7b 0d 20 20 |arg} tha|t]} {.  |
|00001670| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 61 6c |        |      al|
|00001680| 65 72 74 6e 6f 74 65 20 | 22 45 72 72 6f 72 20 6d |ertnote |"Error m|
|00001690| 6f 76 69 6e 67 20 27 24 | 66 27 20 2d 3e 20 27 24 |oving '$|f' -> '$|
|000016a0| 74 61 72 67 27 3a 20 24 | 74 68 61 74 22 0d 20 20 |targ': $|that".  |
|000016b0| 20 20 20 20 20 20 20 20 | 20 20 7d 0d 20 20 20 20 |        |  }.    |
|000016c0| 20 20 20 20 7d 0d 20 20 | 20 20 7d 0d 20 20 20 20 |    }.  |  }.    |
|000016d0| 65 63 68 6f 20 24 72 65 | 70 6f 72 74 0d 7d 0d 0d |echo $re|port.}..|
|000016e0| 0d 70 72 6f 63 20 72 6d | 20 61 72 67 73 20 7b 0d |.proc rm| args {.|
|000016f0| 09 73 65 74 20 66 69 6c | 65 73 20 7b 7d 0d 09 66 |.set fil|es {}..f|
|00001700| 6f 72 65 61 63 68 20 61 | 72 67 20 24 61 72 67 73 |oreach a|rg $args|
|00001710| 20 7b 0d 09 09 61 70 70 | 65 6e 64 20 66 69 6c 65 | {...app|end file|
|00001720| 73 20 22 20 22 20 5b 67 | 6c 6f 62 20 24 61 72 67 |s " " [g|lob $arg|
|00001730| 5d 0d 09 7d 0d 09 66 6f | 72 65 61 63 68 20 66 20 |]..}..fo|reach f |
|00001740| 24 66 69 6c 65 73 20 7b | 0d 09 09 72 65 6d 6f 76 |$files {|...remov|
|00001750| 65 46 69 6c 65 20 24 66 | 0d 09 7d 0d 7d 0d 0d 0d |eFile $f|..}.}...|
|00001760| 70 72 6f 63 20 67 65 74 | 54 79 70 65 43 72 65 61 |proc get|TypeCrea|
|00001770| 74 6f 72 20 7b 66 7d 20 | 7b 0d 09 73 65 74 20 6c |tor {f} |{..set l|
|00001780| 20 5b 6c 73 20 2d 6c 20 | 24 66 5d 0d 09 73 65 74 | [ls -l |$f]..set|
|00001790| 20 6c 65 6e 20 5b 6c 6c | 65 6e 67 74 68 20 24 6c | len [ll|ength $l|
|000017a0| 5d 0d 09 6c 69 73 74 20 | 5b 6c 69 6e 64 65 78 20 |]..list |[lindex |
|000017b0| 24 6c 20 5b 65 78 70 72 | 20 24 6c 65 6e 2d 34 5d |$l [expr| $len-4]|
|000017c0| 5d 20 5b 6c 69 6e 64 65 | 78 20 24 6c 20 5b 65 78 |] [linde|x $l [ex|
|000017d0| 70 72 20 24 6c 65 6e 2d | 33 5d 5d 0d 7d 0d 00 00 |pr $len-|3]].}...|
|000017e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001800| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00001810| 02 1c 02 1e 82 2e 82 2e | 82 2e 82 2e 82 2e 82 2e |........|........|
|00001820| 82 2e 82 2e 82 2e 82 2e | 82 2e 82 2e 82 2e 02 2e |........|........|
|00001830| 09 73 68 65 6c 6c 2e 74 | 63 6c 02 00 00 00 50 61 |.shell.t|cl....Pa|
|00001840| 72 74 53 49 54 21 00 00 | 00 00 00 00 00 00 00 00 |rtSIT!..|........|
|00001850| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00001860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001870| 00 00 a9 b0 91 a6 00 00 | 00 00 00 00 01 7e 83 2c |........|.....~.,|
|00001880| 03 2c 03 38 83 40 03 40 | 03 58 83 5e 03 5e 83 7e |.,.8.@.@|.X.^.^.~|
|00001890| 03 7e 03 94 83 9a 83 9a | 83 9a 03 9a 83 c2 83 c2 |.~......|........|
|000018a0| 03 c2 03 d8 83 de 83 de | 03 de 84 10 84 10 04 10 |........|........|
|000018b0| 04 26 84 2c 84 2c 04 2c | 84 50 84 50 04 50 04 66 |.&.,.,.,|.P.P.P.f|
|000018c0| 84 6c 84 6c 04 6c 84 9c | 84 9c 04 9c 04 b2 84 b8 |.l.l.l..|........|
|000018d0| 84 b8 04 b8 84 c4 84 c4 | 84 c4 84 c4 04 c4 04 da |........|........|
|000018e0| 85 0a 85 0a 05 0a 05 20 | 05 32 85 36 05 36 05 46 |....... |.2.6.6.F|
|000018f0| 85 5c 05 5c 05 5e 85 6e | 85 6e 85 6e 85 6e 85 6e |.\.\.^.n|.n.n.n.n|
|00001900| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 4e |...H..Mo|naco...N|
|00001910| ff 2c 00 00 00 00 00 5e | 0f fe 00 02 f7 6c 00 b4 |.,.....^|.....l..|
|00001920| 00 56 30 50 00 00 00 04 | 00 04 00 2a 00 03 01 dd |.V0P....|...*....|
|00001930| 02 7d 00 2a 00 03 01 dd | 02 7d 00 01 cb 02 00 00 |.}.*....|.}......|
|00001940| 0a 5e 00 00 0a 8c 00 00 | 09 05 01 00 00 00 01 00 |.^......|........|
|00001950| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 4e ff 2c |...L...L|...2.N.,|
|00001960| 0c 20 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |. .....2|..MPSR..|
|00001970| 00 0a 03 ed ff ff 00 00 | 00 00 00 55 0d 7c 00 00 |........|...U.|..|
+--------+-------------------------+-------------------------+--------+--------+